===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 06-03-93 (21:39)             Number: 101
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: FilterHigh 2.0 (3/4)           Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 2.

    Table(143) = ASC("A"): Table(144) = ASC("E"): Table(145) = ASC("&")
    Table(146) = ASC("A"): Table(147) = ASC("O"): Table(148) = ASC("o")
    Table(149) = ASC("o"): Table(150) = ASC("u"): Table(151) = ASC("u")
    Table(152) = ASC("y"): Table(153) = ASC("O"): Table(154) = ASC("U")
    Table(155) = ASC("c"): Table(156) = ASC("L"): Table(159) = ASC("f")
    Table(160) = ASC("a"): Table(161) = ASC("i"): Table(162) = ASC("o")
    Table(163) = ASC("u"): Table(164) = ASC("n"): Table(165) = ASC("N")
    Table(166) = ASC("a"): Table(167) = ASC("o"): Table(174) = ASC("<")
    Table(175) = ASC(">"): Table(179) = ASC("|"): Table(180) = ASC("+")
    Table(181) = ASC("+"): Table(182) = ASC("+"): Table(183) = ASC("+")
    Table(184) = ASC("+"): Table(185) = ASC("+"): Table(186) = ASC("|")
    Table(187) = ASC("+"): Table(188) = ASC("+"): Table(189) = ASC("+")
    Table(190) = ASC("+"): Table(191) = ASC("+"): Table(192) = ASC("+")
    Table(193) = ASC("+"): Table(194) = ASC("+"): Table(195) = ASC("+")
    Table(196) = ASC("-"): Table(197) = ASC("+"): Table(198) = ASC("+")
    Table(199) = ASC("+"): Table(200) = ASC("+"): Table(201) = ASC("+")
    Table(202) = ASC("+"): Table(203) = ASC("+"): Table(204) = ASC("+")
    Table(205) = ASC("="): Table(206) = ASC("+"): Table(207) = ASC("+")
    Table(208) = ASC("+"): Table(209) = ASC("+"): Table(210) = ASC("+")
    Table(211) = ASC("+"): Table(212) = ASC("+"): Table(213) = ASC("+")
    Table(214) = ASC("+"): Table(215) = ASC("+"): Table(216) = ASC("+")
    Table(217) = ASC("+"): Table(218) = ASC("+"): Table(228) = ASC("E")
    Table(246) = ASC("/"): Table(248) = ASC("o"): Table(252) = ASC("n")
    Table(253) = ASC("2")
END IF

'IF ASC(User.IBMGraph) THEN
'   FilterHigh$ = Text$
'   EXIT FUNCTION
'END IF

DEF SEG = VARSEG(Text$)
ptr = SADD(Text$)

FOR z = 1 TO LEN(Text$)

   IF PEEK(ptr) > 128 THEN
      IF Table(PEEK(ptr)) THEN
         POKE ptr, Table(PEEK(ptr))
      ELSE
         POKE ptr, 35
      END IF
   END IF

   ptr = ptr + 1

NEXT z

END SUB

FUNCTION RandomGen$ (Num)

A$ = SPACE$(Num)
FOR X = 1 TO Num
    IF RND > .7 THEN
        MID$(A$, X) = CHR$(RND * 128)
    ELSE
        MID$(A$, X) = CHR$(RND * 128 + 127)
    END IF
NEXT

RandomGen$ = A$

END FUNCTION

'______O_/__________________| SNIP |__________________\_O______
'      O \                  | HERE |                  / O

Now, people without MASM capture the next message:

Victor


--- Blue Wave/RA v2.12 [NR]
 * Origin: Hard Disc Cafe | Houston Texas | (713) 589-2690 |  (1:106/30.0)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20